home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Science / Biology / bufstack Folder / BufferStack 1.1 / card_8789.txt < prev    next >
Encoding:
Text File  |  1989-11-13  |  5.5 KB  |  254 lines
  1. -- card: 8789 from stack: in.1
  2. -- bmap block id: 5579
  3. -- flags: 4000
  4. -- background id: 2573
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0001
  11. -- rect: left=22 top=65 right=100 bottom=481
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=404 top=168 right=188 bottom=439
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 20
  30. -- text size: 14
  31. -- style flags: 0
  32. -- line height: 18
  33. -- part name: I
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 00
  38. -- high flags: 0002
  39. -- rect: left=310 top=96 right=116 bottom=346
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 20
  44. -- text size: 14
  45. -- style flags: 0
  46. -- line height: 18
  47. -- part name: za
  48.  
  49.  
  50. -- part 4 (field)
  51. -- low flags: 00
  52. -- high flags: 2000
  53. -- rect: left=218 top=260 right=284 bottom=364
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 256
  60. -- line height: 16
  61. -- part name: corr
  62.  
  63.  
  64. -- part 5 (button)
  65. -- low flags: 00
  66. -- high flags: 8003
  67. -- rect: left=390 top=257 right=279 bottom=462
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Calculate
  76. ----- HyperTalk script -----
  77. function DebyeHuckel T
  78. -- use a second order polynomial to approximate (*very* closely)
  79. -- the Debye H√ºckel parameter at any temperature
  80. put (0.4918 + 0.0006614*T + 0.000004975*T^2) into DH
  81. return DH
  82. end DebyeHuckel
  83.  
  84. on mouseUp
  85.   put card field "T" into T
  86.   put DebyeHuckel(T) into A
  87.   put A into card field "A"
  88.   put card field "I" into i
  89.   put sqrt(card field "I") into si
  90.   put card field "za" into za
  91.   put (2 * za - 1) * (A * si/(1 + si) - 0.1*i) into corr
  92.  
  93.   if corr > 0 then
  94.     put "plus " into sign
  95.   else
  96.     put "minus " into sign
  97.   end if
  98.  
  99.   if corr = 0 then
  100.     put "(no correction)" into card field "corr"
  101.   else
  102.     put sign && abs (corr) into card field "corr"
  103.   end if
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 6 (field)
  109. -- low flags: 00
  110. -- high flags: 0002
  111. -- rect: left=96 top=192 right=212 bottom=131
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 0
  115. -- font id: 20
  116. -- text size: 14
  117. -- style flags: 0
  118. -- line height: 18
  119. -- part name: T
  120.  
  121.  
  122. -- part 9 (field)
  123. -- low flags: 00
  124. -- high flags: 0000
  125. -- rect: left=176 top=191 right=211 bottom=229
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 0
  129. -- font id: 20
  130. -- text size: 14
  131. -- style flags: 0
  132. -- line height: 18
  133. -- part name: A
  134.  
  135.  
  136. -- part 12 (button)
  137. -- low flags: 00
  138. -- high flags: 8003
  139. -- rect: left=22 top=258 right=280 bottom=94
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: Explain
  148. ----- HyperTalk script -----
  149. on mouseUp
  150.   set the visible of card field "explain" to not the visible of card field "explain"
  151. end mouseUp
  152.  
  153.  
  154.  
  155. -- part 14 (field)
  156. -- low flags: 01
  157. -- high flags: 0001
  158. -- rect: left=95 top=292 right=318 bottom=463
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 0
  162. -- font id: 3
  163. -- text size: 10
  164. -- style flags: 0
  165. -- line height: 13
  166. -- part name: 
  167.  
  168.  
  169. -- part 13 (field)
  170. -- low flags: 81
  171. -- high flags: 0004
  172. -- rect: left=95 top=238 right=313 bottom=464
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 0
  176. -- font id: 3
  177. -- text size: 10
  178. -- style flags: 0
  179. -- line height: 13
  180. -- part name: explain
  181.  
  182.  
  183. -- part 15 (button)
  184. -- low flags: 00
  185. -- high flags: 2000
  186. -- rect: left=22 top=129 right=169 bottom=66
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 0 / 0
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: oops
  195. ----- HyperTalk script -----
  196. on mouseUp
  197.   show card field "oops"
  198.   wait 100
  199.   hide card field "oops"
  200. end mouseUp
  201.  
  202.  
  203.  
  204. -- part 16 (field)
  205. -- low flags: 81
  206. -- high flags: 2004
  207. -- rect: left=153 top=133 right=186 bottom=302
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 0 / 0
  210. -- text alignment: 0
  211. -- font id: 3
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 16
  215. -- part name: oops
  216.  
  217.  
  218. -- part contents for card part 1
  219. ----- text -----
  220. The pKa of a weak acid or base is dependent upon the ionic strength (I) of the medium, according to this equation...
  221.  
  222. -- part contents for card part 2
  223. ----- text -----
  224. 0.1
  225.  
  226.  
  227. -- part contents for card part 4
  228. ----- text -----
  229. minus  0.112876
  230.  
  231. -- part contents for card part 3
  232. ----- text -----
  233. 0
  234.  
  235. -- part contents for card part 6
  236. ----- text -----
  237. 25
  238.  
  239. -- part contents for card part 9
  240. ----- text -----
  241. 0.511444
  242.  
  243. -- part contents for card part 13
  244. ----- text -----
  245. Enter values for ionic strength, the charge on the acidic buffer component (e.g., zero for acetate buffers, 1 for Tris buffers) and the temperature in ¬∞C. The "Calculate" button will work out the amount by which the pK is affected by ionic strength. Now click 'Explain' again to make this field go away...
  246.  
  247.  
  248. -- part contents for card part 14
  249. ----- text -----
  250. (Note that the temperature compensation of pKa is not included here..)
  251.  
  252. -- part contents for card part 16
  253. ----- text -----
  254. Not "2.za + 1", which was misprinted in the CABIOS article